;:sys9*4096
	;.opt p,oo
;
; print using
; 10.11.1985
;
frmnum	= $ad8a
ascii	= $bddd
getx	= $b7f1
out	= $ab1e
exp	= "e"
point	= "."
komma	= 44797
;
	*= $c900

	           jsr getpar

	           jsr frmnum

	           jsr ascii

	           jsr using

	           jsr out

	           rts
using	      lda #exp

	           jsr check

	           bcs setptr

	           lda decint

	           beq integer

	           lda $102

	           bne l1

	           ldy lenght

	           lda #"0"
l2	         sta $102,y

	           dey

	           bne l2
l1	         lda #point

	           jsr check

	           tay

	           bcc * + 4

	           ldy #"0"

	           lda #0

	           jsr check

	           tya

	           sta $100,x

	           lda #point

	           jsr check

	           ldy declen
l3	         inx

	           dey

	           bne l3
l8	         cpx lenght

	           bcs setptr

	           ldy lenght

	           lda #0

	           sta $101,y
l6	         lda $100,x

	           cmp #" "

	           bne l5

	           lda #" "
l5	         sta $100,y

	           dex

	           bpl l4

	           lda filler

	           dey

	           bpl l5
l4	         dey

	           bpl l6
setptr	     lda #0

	           ldy #1

	           rts
integer	    lda #0

	           jsr check

	           bcc setptr

	           txa

	           tay

	           lda $102

	           beq l7

	           lda #point

	           jsr check

	           bcc l7

	           txa

	           tay
l7	         tya

	           tax

	           dex

	           bpl l8
check	      ldx #0
l9	         cmp $100,x

	           beq l10

	           inx

	           cpx #12

	           bne l9

	           clc
l10	        rts
decint	     .byt 1
lenght	     .byt 9
declen	     .byt 2
filler	     .byt " "
leading	= l5 - 1
getpar	     jsr getx

	           stx decint

	           jsr getx

	           stx lenght

	           jsr getx

	           stx declen

	           jsr getx

	           stx filler

	           jsr getx

	           stx leading

	           jmp komma